(Fuser_variable_p): If not a symbol, return nil.

diff --git a/src/eval.c b/src/eval.c
index 139f3f3abf1abab437030f611f2e84adb858f83d..eb08972bc67d8442280ddde10bf85b857c360bd6 100644 (file)
--- a/src/eval.c
+++ b/src/eval.c
@@ -658,6 +658,9 @@ for the variable is `*'.")
 {
   Lisp_Object documentation;
   
+  if (!SYMBOLP (variable))
+      return Qnil;
+
   documentation = Fget (variable, Qvariable_documentation);
   if (INTEGERP (documentation) && XINT (documentation) < 0)
     return Qt;